00100	<    *****  NOTES  ***** 
00200	
00300	<READ THIS INTO SOUND GENERATING PROGRAM WHEN USING
00400	<NOTE LISTS PREPARED BY 'SCORE' PROGRAMS.
00500	
00600	EXTERNAL FUNCTION SYNTH(ARRAY A),SEE(ARRAY B),READIN(ARRAY C),
00700	SEG(ARRAY D), DUR(X,Y,Z),POWER(X,Y),RDNUM(X); 
00750	ARRAY F1(512);
00800	VARIABLE MAG, C,CS,D,DS,E,F,FS,G,GS,A,AS,B;
00900	C←261.62;  CS←277.18;  D←293.66;  DS←311.13;  E←329.63;
01000	F←349.23;  FS←369.99;  G←391.99;  GS←415.31;
01100	A←440;    AS←466.16;  B←493.89;
01200	
01400	<-- F1 ARRAY MUST BE FILLED FOR INST SIMP TO PLAY;
01500	SYNTH(F1);1 1 999
01600	SRATE←12800;MAG←512/SRATE;NCHNS←1;
01700	
01750	COMPILE;
01800	INSTRUMENT SIMP;
01820	ZOSCIL(P4,MAG*P3,P5);
01900	OUTA←OUTA+U1;
02000	END;FINISH;
02100	PLAY;SIMP 0 .2 A 2000 F1;FINISH;